╟ok Seτenekli Liste Kutular²
Liste kutular² Visual Basic 3.0Ædan itibaren bir den τok seτene≡i kabul eder duruma gelmi■lerdir.
Liste kutusu kontrolⁿnⁿn nas²l kullan²laca≡²n² ÷nceki aylarda g÷stermi■tik. A■a≡²daki ÷rne≡imiz birden fazla seτene≡i kabul eden liste kutular²n²n nas²l kullan²ld²≡²n² g÷stermektedir.
Sub Command1_Click ()
Dim I
'2.Liste kutusunu temizle
List2.Clear
'E≡er seτili bir nesne varsa bunu 2.liste kutusuna g÷nder
For I = 0 To List1.ListCount - 1
If List1.Selected(I) Then
List2.AddItem List1.List(I)
End If
Next I
End Sub
Sub Command2_Click ()
msg$ = ""
msg$ = msg$ + "Seτili ╓≡eler"
For I = 0 To List2.ListCount - 1
If List2.Selected(I) Then
msg$ = msg$ + Chr$(13) + List2.List(I)
End If
Next I
MsgBox msg$, 64, "Seτililer"
End Sub
Sub Form_Load ()
Dim I
'1. Liste Kutusunu ekranda g÷rⁿnen yaz² tipleriyle doldur.
For I = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(I)
Next I
End Sub
Program τal²■t²r²ld²≡²nda ekran yaz²tipleri 1. Liste kutusunda belirecektir, "G÷nder" tu■una bas²ld²≡²nda 1. Liste kutusunda seτti≡iniz yaz² tipleri 2.liste kutusuna kopyalanacak, "Liste" tu■una bas²ld²≡²nda ise 2.liste kutusunda seτili olan ÷≡eler mesaj kutusu kullan²larak g÷rⁿntⁿlenecektir.
╓rne≡imiz τok seτenekli liste kutular²na tam eri■im sa≡lamaktad²r, siz de kodlar² programlar²n²zda kullanabilirsiniz.
Not: Program²n²z² τal²■t²rmadan ÷nce liste kutular²n²n "Multiselect" ÷zelli≡ini Properties kutucu≡undan "2"(Extended) yap²n.